COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	title swptst
C00003 ENDMK
C⊗;
title swptst

a←1
b←2
c←3
d←4

p←17

loc 74
	105
reloc

go:	reset
	move p,[-100,,pdl-1]
	movei a,=200*1000-1
	core a,
	 jrst 4,.
	hrrz c,jobff↑
loop:	pushj p,rand
	movem a,(c)
	came c,jobrel↑
	aoja c,loop
	movei c,beg
	hrrm c,jobsa↑
	exit 1,
beg:
;	jrst .
	hrrz a,jobrel
beglp:	move (a)
	sojg a,beglp
	jrst beg

rand:	move a,rand1
	move b,rand2
	movem b,rand1
	fmp a,b
	rot a,7
	movem a,rand2
	popj p,

rand1:	123456,,765432
rand2:	252525,,252525

pdl:	block 100
	end go